home *** CD-ROM | disk | FTP | other *** search
/ D-Rom (UK) / D_ROM / D_ROM (Track 01).bin / drom.dir / 00105.ls < prev    next >
Encoding:
Text File  |  1997-07-24  |  1.0 KB  |  22 lines
  1. on mouseUp
  2.   global gworklist, glistcounter
  3.   if char 1 of field "songfield4" <> " " then
  4.     set the movieRate of sprite 45 to 0
  5.     set the castNum of sprite 28 to the memberNum of member "play"
  6.     repeat with x in [35, 36, 37]
  7.       set the visible of sprite x to 0
  8.     end repeat
  9.     set the visible of sprite 38 to 1
  10.     set temsnd to getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 4), #QTnam)
  11.     set the castNum of sprite 45 to member temsnd
  12.     set teminf to getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 4), #inftrk)
  13.     if teminf <> EMPTY then
  14.       set the castNum of sprite 12 to member teminf
  15.     else
  16.       put "Artist:" && getaProp(getAt(gworklist, glistcounter), #artnam) & RETURN & "Label:" && getaProp(getAt(gworklist, glistcounter), #recinf) & RETURN & "Track Four name:" && getaProp(getAt(getaProp(getAt(gworklist, glistcounter), #tracks), 4), #namtrk) into field "xxfield"
  17.       set the castNum of sprite 12 to member "xxfield"
  18.     end if
  19.     updateStage()
  20.   end if
  21. end
  22.